﻿Public Class FMcFoto

    Public Sub New(imgPath As Image)

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Me.PhotoImage = imgPath
    End Sub

    Public Property PhotoImage As Image

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub FMcFoto_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        PictureBox1.Image = Me.PhotoImage
    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        Me.Close()
    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
        Me.Close()
    End Sub
End Class